Ì i 2
bar.guar (main)
[guar.urn]
*BGR[bgr]
Field Name Len Dat Typ J DPM Offset/Local/VAL
guar.urn 47 URN L bgr
calc.next.stmt.no 3 PINT R VAL=%BAR.GUAR.next.stmt.msg(guar.urn)
comment.text 79 FREE L *BGR[bgr]CO|0
contract.1st.pmt.dt 8 DATE L *BGR[bgr]|16
contract.amount 9 MONEY R *BGR[bgr]|14
contract.auto.term.dt 8 DATE L *BGR[bgr]|17
contract.date 8 DATE L *BGR[bgr]|13
contract.odue 4 PINT R VAL=(%BAR.GUAR.contract.odue(guar.urn)>0)
contract.paid 9 MONEY R VAL=%BAR.GUAR.contract.paid(@BAR.GUAR.guar.num)
cycle.day 2 PINT R *BGR[bgr]S|4
guar.adr1 30 FREE L *BGR[bgr]|3
guar.adr2 30 FREE L *BGR[bgr]|4
guar.bus.phone 18 PHONE L *BGR[bgr]|9
guar.change.no 15 FREE L *BGR[bgr]|12
guar.city 20 FREE L *BGR[bgr]|5
guar.emp.addr 30 FREE L *BGR[bgr]E|2
guar.emp.city 30 FREE L *BGR[bgr]E|3
guar.emp.name 30 FREE L *BGR[bgr]E|1
guar.emp.phone 18 PHONE L *BGR[bgr]E|6
guar.emp.state 20 FREE L *BGR[bgr]E|4
guar.emp.status 10 FREE L MIS.EMP.STATUS *BGR[bgr]E|8
guar.emp.zip 10 ZIP.POST L *BGR[bgr]E|5
guar.emplr.id 10 FREE L MIS.EMPLR.DICT *BGR[bgr]E|0
guar.emplye.id 10 FREE L *BGR[bgr]E|9
guar.home.phone 18 PHONE L *BGR[bgr]|8
guar.id 47 FREE L VAL=(@BAR.GUAR.guar.num_" "_@BAR.GUAR.guar.name'=" "
VAL=)
guar.name 30 FREE L *BGR[bgr]|1
guar.num 15 FREE L *BGR[bgr]|0
guar.occup 20 FREE L *BGR[bgr]E|7
guar.soc.sec 15 FREE L *BGR[bgr]|10
guar.state 20 FREE L *BGR[bgr]|6
guar.zip 10 ZIP.POST L *BGR[bgr]|7
hold.stmts 1 YN L *BGR[bgr]S|1
id 47 URN L BAR.GUAR VAL=(@BAR.GUAR.guar.num_" "_@BAR.GUAR.guar.name'=" "
VAL=)
last.pat.edit 8 DATE L *BGR[bgr]|15
last.st.date 8 DATE L VAL=@BAR.PAT.txn.ser.date[@BAR.GUAR.oldest.acct^AA,"O"
VAL=,@BAR.PAT.last.st.txn[AA]]
next.stmt.ctrc.offset 2 PINT R *BGR[bgr]NS|3
next.stmt.date 8 DATE L *BGR[bgr]NS|0
next.stmt.date.disp 8 DATE L VAL=IF{"P"=@BAR.PARAM.pt.ot.guar.stmts @BAR.PAT.next.s
VAL=tmt.date;@BAR.GUAR.next.stmt.date[@BAR.PAT.guar.id
VAL=]}
next.stmt.dunning.msg 8 FREE L BAR.DUN.MSG *BGR[bgr]S|9
next.stmt.msg.number 2 PINT R *BGR[bgr]NS|1
next.stmt.no 3 PINT R *BGR[bgr]S|0
next.stmt.period 3 PINT R *BGR[bgr]NS|2
next.stmt.seq.no 3 PINT R *BGR[bgr]S|2
oldest.acct 44 URN L BAR.PAT *BGR[bgr]S|5
on.hold.by 10 FREE L MIS.USER *BGR[bgr]S|7
on.hold.date 8 DATE L *BGR[bgr]S|8
pt.relat 10 FREE L MIS.RELAT.DICT VAL=@t.BAR.PAT.pt.relat
sort.id 47 FREE L
sort.name 30 FREE L *BGR[bgr]|11
sort.order 10 FREE L *BGR[bgr]S|6
zcus.addr3 30 FREE L *BGR[bgr]ZCUSUK|0
zcus.uk.guar.title 10 FREE L *BGR[bgr]ZCUSUK|1
Ì € i 2
guar.stmt.included.patients (guar.stmt.incl.patients)
[guar.urn, guar.incl.pat.stmt.date,guar.incl.pat]
*BGR[bgr]I[bzAG,bz]
Field Name Len Dat Typ J DPM Offset/Local/VAL
guar.incl.pat.stmt.date 8 DATE L bzAG
guar.incl.pat 44 URN L BAR.PAT bz
guar.incl.exp.date 8 DATE L *BGR[bgr]I[bzAG,bz]|0
Ì € i 2
bar.guar.patient.list (guar.stmt.print.patients)
[guar.urn, guar.pat.date,guar.pat.account]
*BGR[bgr]P[bzAG,bz]
Field Name Len Dat Typ J DPM Offset/Local/VAL
guar.pat.date 8 DATE L bzAG
guar.pat.account 44 URN L BAR.PAT bz
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
bar.guar.contract.index [guar.urn]
contract.x ?BGCX[bgr]
bar.guar.id.x [sort.id,guar.urn]
id.x ?BGIX[bgrID,bgr]
bar.guar.name.index [sort.name,guar.urn]
name.x ?BGNX[bgrN,bgr]
bar.guar.next.statement.index [next.stmt.date,guar.urn]
next.gstmt.x ?BGRSNX[bgrNS,bgr]
bar.guar.number.index [guar.num,guar.urn]
number.x ?BGRX[bgrR,bgr]
bar.guar.stmt.hold.index [guar.urn]
stmt.hold.x ?BGSH[bgr]
|
|
| |